0 REM* CA - MOVIE SHOW *
1 POKE157,.:POKE53269,.:IFU=.THENU=.2:LOAD"CA - ROUT 1",8,1
2 IFU<.5THENU=.5:LOAD"CA MENU CTRL",8,1
3 IFU<1THENU=1:LOAD"CA - ROUT 2",8,1
10 POKE55,.:POKE56,14:CLR:SYS39825:.K,160,100:POKE650,128:OPEN15,8,15:FG=37659
20 FE=37720:POKE49553,1:BO=53280:JY=56320:POKE49310,14:POKE37725,14:R$=CHR$(13)
30 .R,.,.,308,188:GOTO10000
800 CLOSE1:FORI=.TO1:PRINTA$;:GET#15,A$:I=-(A$=R$):NEXT:WAITJY,16,16:GOTO30
10000 POKE56576,3:POKE53272,23:POKE53265,27:POKEBO,8:POKEBO+1,15:.N,4
10010 PRINT"[144][147]"TAB(10)"[195][193] - [205]OVIE [211]HOW:":PRINTTAB(14)"[218]EIGEN
10020 [153][163]14)"(null)ADEN":[153][163]14)"(null)ERGE":[153][163]14)"(null)PEICHERN
10030 .P,1,10,6,27,8,1:.P,2,10,10,27,12,1:.P,3,10,14,27,16,1:.P,4,10,18,27,20,1
10040 .S,10:I=ST:IFI=1ANDALTHENPOKEBO,4:SYS49244,15,0:GOTO30
10050 INPUT"[147]  [206]AME ";N$:IFI-1THENONI-2GOTO48500,49000
48000 POKE3584,254:AL=.
48500 ON-(AL>-1ANDI=25)GOTO30:PRINT"  LOADING":SYSFE:POKE251,PEEK(253)
48510 POKE252,PEEK(254):OPEN1,8,.,N$:GET#15,A$:ON-(A$>"0")GOTO800:AL=-1
48520 GET#1,B$,B$:POKE781,1:SYS65478:SYS37659:SYS65484:IFPEEK(252)>139GOTO48540
48530 SYSFE:PRINT35840-PEEK(253)-256*PEEK(254)"[194]YTES FREI.":GOTO800
48540 PRINT"ZU LANG!":CLOSE1:POKEPEEK(253)+256*PEEK(254),254:AL=I=3:GOTO800
49000 ONAL+1GOTO190:PRINT"  SAVING":SYSFE:I=PEEK(253)+256*PEEK(254)-3584
49010 POKE252,14:POKE253,IAND255:POKE254,I/256:OPEN1,8,1,N$:GET#15,A$
49020 ON-(A$>"0")GOTO800:POKE251,.:CMD1,"LL";:SYS37632:PRINT#1:CLOSE1:GOTO30